
Sub Informe()
'
' Informe Macro
'
    Direc = "C:\Users\grubio\Documents\Informes de Ventas\"

    ' --- Guarda el nombre del libro Origen
    
    Nombre_Origen = ActiveSheet.Parent.Name
        
    Application.ScreenUpdating = False
   
    ' ---  Esto no hace falta       ChDir Direc
    
    ' ---  Crea un nuevo Libro y lo renombras
    
    ' ---  Workbooks.Open Filename:=Direc & "Libro1.xlsx"
    
    
    Workbooks.Add
    
    Nombre_Destino = "Estadisticas de Ventas"
    
    ActiveWorkbook.SaveAs Filename:= Dire + Nombre_Destino, _
                             FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
                             CreateBackup:=False

    ' --- Aqui deberias comprobar si tienes 3 hoja en el nuevo libro:
    '     - Si hay menos aadir las que falten
    '     - Si hay mas eliminar las que sobren
    '     - Renombrar las hojas
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 01
    ' </> ---------------------------------------------------------------- </>

    ' --- Windows("Informe de Ventas por Producto.xlsm").Activate

    ' -- Falta seleciona la hoja de origen y destino
    
    ' -- Si has de copiar el area B2:X7 el resto sobre

    Windows(Nombre_Origen).Activate
    Sheets(Hoja).Select:Range("B2:X7").Select: Selection.Copy
    
    Windows(Nombre_Destino).Activate
    Sheets(Hoja).Select: Range("B4").Select: ActiveSheet.Paste

    ' --- Basicamente lo que hace esta macro se define en estas cuatro lineas
    '     Si lo prefieres puedes hacer un paste especial en todos los casos
    
    
    Windows(Nombre_Origen).Activate
    Sheets(Hoja).Select:Range("B2:X7").Select: Selection.Copy
    
    Windows(Nombre_Destino).Activate
    Sheets(Hoja).Select: Range("B4").Select

    Selection.PasteSpecial Paste:=xlPasteValues, _
                           Operation:=xlNone, _
                           SkipBlanks:=False, _
                           Transpose:=False
      
          
    ' Range("B2:B7").Select
    ' Range(Selection, Selection.End(xlToRight)).Select
    
    ' Range("B2:X7").Select
    ' Selection.Copy
    
    ' Windows(Nombre_Destino).Activate
    ' Range("B4").Select
    ' ActiveSheet.Paste
    
    ' --- He contado unos 22 bloques a copiar.
    '     Si haces una tabla en la que ponga:
    
    '     Hoja Origen       Area        Hoja Destino          Celda
    
    ' --- Y con esto y un bucle resulta un proceso de copia muchisimo ms corto
    '     Al final realizas ajustes como cabeceras hanchos de fijas y columnas.
    
    '     Siguiendo estas pocas intrucciones tendras un macro muchisimo mas carta.
    
    
    
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 02
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Rows("5:5").Select
    Range("E5").Activate
    ActiveWindow.ScrollColumn = 9
    Range("C2:X7").Select
    Range("X2").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 03
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Sheets("VENTA VALIDADA").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("B2:X7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("B13").Select
    ActiveSheet.Paste
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 04
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Range("C2:X7").Select
    Range("X2").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("C13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 05
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("VENTA INSTALADA").Select
    ActiveWindow.SmallScroll Down:=-57
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("B2:X7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=9
    Range("B22").Select
    ActiveSheet.Paste
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 06
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Range("C2:X7").Select
    Range("X2").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("C22").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-30
    Range("B2:X2").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=-6
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Range("B2:X2").Select
    ActiveCell.FormulaR1C1 = "VENTA BRUTA"
    Range("B2:X2").Select
    Selection.Copy
    Range("B11").Select
    ActiveSheet.Paste
    Range("B20").Select
    ActiveSheet.Paste
    Range("B11:X11").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "VENTA VALIDADA"
    Range("B20:X20").Select
    ActiveCell.FormulaR1C1 = "VENTA INSTALADA"
    Range("G3").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Sheets("Hoja1").Select
    Sheets("Hoja1").Name = "VENTA"
    Sheets("Hoja2").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 07
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Sheets("VENTA BRUTA CANAL").Select
    ActiveWindow.SmallScroll Down:=-3
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-51
    Range("B2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("B2:Z2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("B2:Z42").Select
    Selection.Copy
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=-9
    Range("B4").Select
    ActiveSheet.Paste
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 08
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Range("E2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Windows(Nombre_Origen).Activate
    Range("E2:Z42").Select
    Range("Z2").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("E4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=27
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 09
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Sheets("VENTA VALIDADA CANAL").Select
    ActiveWindow.SmallScroll Down:=-3
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-15
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("B2:D48").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("B2:Y42").Select
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B2:Z42").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=6
    Range("B48").Select
    ActiveSheet.Paste
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 10
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Range("E2:Z42").Select
    Range("Z2").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("E48").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 11
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Sheets("VENTA INSTALADA CANAL").Select
    ActiveWindow.SmallScroll Down:=-96
    Range("Z2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range("E2:Z42").Select
    Range("Z2").Activate
    Range(Selection, Selection.End(xlToLeft)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=48
    Range("B92").Select
    ActiveSheet.Paste
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 12
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.SmallScroll Down:=6
    Range("E20:E23").Select
    ActiveWindow.SmallScroll Down:=-39
    Range("E2:Z2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("E92").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-132
    Sheets("VENTA").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("B2:X2").Select
    Sheets("Hoja2").Select
    Range("B2:Q2").Select
    Sheets("VENTA").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Hoja2").Select
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.TabRatio = 0.507
    Range("M23").Select
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.SmallScroll ToRight:=-4
    Range("D2").Select
    ActiveSheet.Paste
    Range("D2:Z2").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=33
    Range("D46").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=45
    Range("D90").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-42
    Range("D46:Z46").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "VENTA VALIDADA"
    Range("D47").Select
    ActiveWindow.SmallScroll Down:=33
    Range("D90:Z90").Select
    ActiveCell.FormulaR1C1 = "VENTA INSTALADA"
    Range("D91").Select
    Sheets("Hoja2").Select
    Sheets("Hoja2").Name = "VENTA POR CANAL"
    Sheets("Hoja3").Select
    Range("D7").Select
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 13
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.SmallScroll Down:=-15
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-27
    Sheets("VENTA BRUTA").Select
    ActiveWindow.SmallScroll Down:=0
    Range("A13:L18").Select
    Range("L18").Activate
    Rows("11:11").RowHeight = 0
    Rows("10:10").RowHeight = 13.5
    Range("B10").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("B10:Y10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=-3
    Range("B4").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=21
    Range("E29").Select
    ActiveWindow.SmallScroll Down:=-48
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 14
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-15
    Range("C10:C14").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C10:X14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 15
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Range("D25:Y42").Select
    Range("Y25").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=9
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-36
    Windows(Nombre_Origen).Activate
    ActiveWindow.SmallScroll Down:=12
    Sheets("VENTA VALIDADA").Select
    ActiveWindow.SmallScroll Down:=3
    Range("B10:Y42").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=12
    Range("B40").Select
    ActiveSheet.Paste
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque- 16
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=0
    Range("D25:Y42").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=18
    Range("D55").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-12
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 17
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.SmallScroll Down:=-18
    Range("C10:X14").Select
    Range("X10").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("C40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=27
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 18
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("VENTA INSTALADA").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("B10:Y42").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Range("B76").Select
    ActiveSheet.Paste
    Range("C76").Select
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 19
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.SmallScroll Down:=-42
    Range("C10:X14").Select
    Range("X10").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 20
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.SmallScroll Down:=21
    Range("D25:Y42").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=15
    Range("D91").Select
    ActiveWindow.SmallScroll Down:=9
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-15
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 21
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    ActiveWindow.SmallScroll Down:=-9
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("C17:F22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nombre_Destino).Activate
    
    ' </> ---------------------------------------------------------------- </>
    ' </> ---&---  Copia el bloque - 22
    ' </> ---------------------------------------------------------------- </>

    Windows(Nombre_Origen).Activate
    Windows(Nombre_Destino).Activate
    ActiveWindow.SmallScroll Down:=6
    Sheets("Hoja3").Select
    Sheets("Hoja3").Name = "VENTA POR PRODUCTO"
    ActiveWindow.SmallScroll Down:=-96
    Sheets("VENTA POR CANAL").Select
    Range("D90:Z90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("VENTA POR PRODUCTO").Select
    ActiveWindow.SmallScroll Down:=-24
    Range("C2").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=27
    Range("C38").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=30
    Range("C75").Select
    ActiveWindow.SmallScroll Down:=6
    Range("C74").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-72
    Range("C2:Y2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "VENTA BRUTA"
    Range("C3").Select
    ActiveWindow.SmallScroll Down:=18
    Range("C38:Y38").Select
    ActiveCell.FormulaR1C1 = "VENTA VALIDADA"
    Range("C39").Select
    ActiveWindow.SmallScroll Down:=-15
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
End Sub


